(debug): Use save-excursion inside the binding of buffer-read-only.

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 202821c87edb690fa4ccb7da7ee6a3fe5d0189c6..763a1f3193c00915c907722d30575d7a16888841 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -161,7 +161,9 @@ first will be printed into the backtrace buffer."
                    (standard-output nil)
                    (buffer-read-only t))
                (message "")
-               (recursive-edit))))
+               ;; Make sure we unbind buffer-read-only in the right buffer.
+               (save-excursion
+                 (recursive-edit)))))
        ;; Kill or at least neuter the backtrace buffer, so that users
        ;; don't try to execute debugger commands in an invalid context.
        (if (get-buffer-window debugger-buffer 'visible)